home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / LXLT101.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1996-02-23  |  3.3 KB  |  99 lines
  1. /***********************************/
  2. /* lxLite installation script file */
  3. /***********************************/
  4.  '@echo off'
  5.  'cls'
  6.  call rxFuncAdd "SysOS2Ver", "RexxUtil", "SysOS2Ver"
  7.  call rxFuncAdd "SysGetKey", "RexxUtil", "SysGetKey"
  8.  say "═══════ FRIENDS software presents ═══════"
  9.  say "╖  \//        An  OS/2 executables packer"
  10.  say "╜─╜//\  ╖     Lots  of  features, maximal"
  11.  say "  //╖  ╖╫─╓─╖ compression, nice interface"
  12.  say " // ╜─╜╨╙─╙── R·E·L·E·A·S·E V·E·R·S·I·O·N"
  13.  say "═════════════════════════════════════════"
  14.  version = SysOS2Ver()
  15.  parse value version with hiver "." lover
  16.  say "OS/2 version "version" detected"
  17.  
  18.  say "********************************************************************"
  19.  say "Please enter the destination directory for program, ex: C:\OS2\APPS:"
  20.  pull destDir
  21.  if (length(destDir) > 3) & (substr(destDir, length(DestDir), 1) = "\")
  22.   then destDir = substr(destDir, 1, length(DestDir) - 1);
  23.  do while stream(destDir,"c","query datetime") = ""
  24.   QueryCreate = Ask("The directory you specified does not exist. Create it? (Y/N)", "YN")
  25.   select
  26.    when QueryCreate = "Y"
  27.     then 'mkDir 'destDir' 1>nul 2>nul'
  28.    otherwise
  29.     say "Aborting..."
  30.     exit
  31.   end
  32.  end
  33.  
  34.  say "********************************************************************"
  35.  
  36.  if ((hiver > 2) | (lover > 11)) /* Repack using Lempel-Ziv for OS/2 v>2.11 */
  37.   then do
  38.         say "Please wait, repacking lxLite using advanced compression method"
  39.         say "Supported by OS/2 2.99 and above (Warp)"
  40.         'lxLite /y lxLite.exe'
  41.         'del lxLite2x.cfg 1>nul 2>nul'
  42.        end
  43.   else do
  44.         say "Your OS/2 version does not support Lempel-Ziv compression method"
  45.         'del lxLite.cfg 1>nul 2>nuk'
  46.         'ren lxLite2x.cfg lxLite.cfg 1>nul 2>nul'
  47.        end
  48.  
  49.  say "********************************************************************"
  50.  call CopyFile "lxLite.exe"
  51.  call CopyFile("lxLite.cfg")
  52.  call CopyFile("lxLite.doc")
  53.  call CopyFile("lxLite.rus")
  54.  call CopyFile("stub_min.bin")
  55.  call CopyFile("stub_vdm.bin")
  56.  say "********************************************************************"
  57.  if Ask("Installation complete. Do you want to read the WHATSNEW file now?", "YN") = "Y"
  58.   then do
  59.         'cls'
  60.         'type whatsnew | more'
  61.         Ask("Press Space to continue", " ")
  62.        end
  63.  'cls'
  64.  if Ask("Do you wish to clean the install source directory? (Y/N)", "YN") = "Y"
  65.   then do
  66.         say "Please wait, cleaning up ..."
  67.         'del lxlite*.* 1>nul 2>nul'
  68.         'del stub_*.* 1>nul 2>nul'
  69.         'del whatsnew 1>nul 2>nul'
  70.         'del file_id.diz 1>nul 2>nul'
  71.         'attrib -r %0 >nul'
  72.         'del %0 1>nul 2>nul'
  73.        end
  74.  'cls'
  75.  say "              Just another fine product from"
  76.  say "                    ╖──────────────╖──╖"
  77.  say "                    ║─╖╖─╖╖╓─╖╖─╖╓─╢╓──"
  78.  say "                    ╜  ╜  ╨╙──╜ ╙╙─╙──╜"
  79.  say "                      s·o·f·t·w·a·r·e"
  80.  say "To contact me, write to: Andrew Zabolotny, 2:5030/84.5@FIDOnet"
  81.  say "                 e-mail: Andrew_Zabolotny@p5.n84.r5030.z2.fidonet"
  82. exit
  83.  
  84. CopyFile:
  85.  arg fName
  86.  say "Copying "fName" -> "destDir"\"fName
  87.  'copy 'fName destDir' 1>nul 2>nul'
  88. return
  89.  
  90. Ask:
  91.  parse arg Question,Reply
  92.  say Question
  93.  do until Pos(Answer, Reply) \= 0
  94.   KeyIn = SysGetKey("noecho")
  95.   parse upper var KeyIn Answer
  96.  end
  97.  say Answer
  98. return Answer
  99.